-- card: 9951 from stack: in.6
-- bmap block id: 11204
-- flags: 4000
-- background id: 16130
-- name: PICT Maker 2
----- HyperTalk script -----
on openCard
  global shown
  put FALSE into shown
  pass openCard
end openCard

on closecard
  set name of cd btn ID 3 to "Show Tool Palette"
  hide tool window
  hide pattern window
  put empty into cd fld "Comment"
  show cd btn ID 1
end closecard

on idle
  global shown
  if shown then
    if the short name of cd btn ID 3 is "Hide Tool Palette" then
      get the visible of tool window
      if it is FALSE then
        set the name of cd btn ID 3 to "Show Tool Palette"
        hide pattern window
        put FALSE into shown
      end if
    end if
  end if
  pass idle
end idle



-- part 1 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=334 top=32 right=54 bottom=479
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Make PICT Resource
----- HyperTalk script -----
on mouseUp
  hide me
  show cd fld "Comment"
  put "Select the object to make into a PICT..." into cd fld "Comment"
  put Ants() into theRect
  if theRect is empty then
    put empty into cd fld "Comment"
    show card field "Comment"
    show me
    exit mouseUp
  end if
  put empty into cd fld "Comment"
  choose select tool
  drag from item 1 of theRect,item 2 of theRect to item 3 of theRect,item 4 of theRect -- with optionKey
  doMenu "Copy Picture"
  choose browse tool
  ShowDialog 3,5740, "Please assign a unique ID and name to your PICT resource...","","",11
  if the result is empty then
    show me
    exit mouseUp
  end if
  put the result into temp
  if line 1 of temp = 10 then
    put "this" into where
  else if line 1 of temp = 11 then
    put "other" into where
  else if line 1 of temp = 12 then
    put "file" into where
  end if
  if line 2 of temp is empty then
    put 0 into theID
  else put line 2 of temp into theID
  put line 3 of temp into theName
  put ClipToPICT(theID,theName,where) into temp
  if word 1 of temp = "Error:" then
    put temp into cd fld "Comment"
    show me
    exit mouseUp
  end if
  if temp is not empty then
    put "The new PICT resource is ID" && temp & "." into cd fld "Comment"
  end if
  show me
end mouseUp



-- part 2 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=7 top=6 right=55 bottom=261
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 3 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=334 top=9 right=31 bottom=479
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Show Tool Palette
----- HyperTalk script -----
on mouseUp
  global shown
  if the short name of me is "Show Tool Palette" then
    set name of me to "Hide Tool Palette"
    show tool window at 8,72
    show pattern window at 79,72
    put TRUE into shown
  else
    set name of me to "Show Tool Palette"
    hide tool window
    hide pattern window
    put FALSE into shown
  end if
end mouseUp



-- part 7 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=133 top=283 right=300 bottom=384
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Comment


-- part contents for card part 2
----- text -----
To create a PICT resource, draw a picture on the white area of the screen below.  Click the "Make PICT Resource" button to create the resource.